home *** CD-ROM | disk | FTP | other *** search
/ MacFormat España 22 / macformat_22.iso / Demos / Grolier Demos / Circus / LOOP.DIR / 00003_Script_3 < prev    next >
Text File  |  1994-12-10  |  579b  |  26 lines
  1. on stopMovie 
  2.   global myColorDepth,mySoundLevel
  3.   if the machineType <> 256 then
  4.     releaseRearWindow
  5.     set the colorDepth to myColorDepth
  6.     set the soundlevel to mySoundLevel
  7.   end if
  8. end
  9.  
  10.  
  11.  
  12. on keydown
  13.   if the key ="q" and the commandDown then  quit
  14.   if the key < 8 and the key > 0 then set the soundLevel to integer(the key)
  15.   if (the key = 8) or (the key = 9) then set the soundlevel to 7
  16.   if (the key = 0) then set the soundlevel to 1
  17. end
  18.  
  19.  
  20. on releaseRearWindow
  21.   global rwObj
  22.   if objectP( rwObj ) then
  23.     rwObj( mDispose )
  24.   end if
  25.   
  26. end